home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Utilities / CopyStack / cards.xml < prev    next >
Encoding:
Text File  |  1992-08-12  |  8.3 KB  |  147 lines
  1. card_2817.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2817</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2756</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3086.css" />
  12.     <part>
  13.         <id>7</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>116</left>
  24.             <top>21</top>
  25.             <right>300</right>
  26.             <bottom>43</bottom>
  27.         </rect>
  28.         <style>shadow</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <false /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Chicago</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Install CopyStack On Home</name>
  41.         <script>on mouseUp
  42. push card
  43. set the lockScreen to true
  44. choose button tool
  45. click at the loc of card button "CopyStack"
  46. doMenu "Copy Button"
  47. go to Home
  48. doMenu "Paste Button"
  49. pop card
  50. choose browse tool
  51. set the lockScreen to false
  52. put "CopyStack now installed on your Home card"
  53. wait for 2 seconds
  54. hide message
  55. end mouseUp
  56. </script>
  57.     </part>
  58.     <part>
  59.         <id>8</id>
  60.         <type>button</type>
  61.         <visible> <true /> </visible>
  62.         <reserved5> 0 </reserved5>
  63.         <reserved4> 0 </reserved4>
  64.         <reserved3> 0 </reserved3>
  65.         <reserved2> 0 </reserved2>
  66.         <reserved1> 0 </reserved1>
  67.         <enabled> <true /> </enabled>
  68.         <rect>
  69.             <left>318</left>
  70.             <top>21</top>
  71.             <right>495</right>
  72.             <bottom>43</bottom>
  73.         </rect>
  74.         <style>shadow</style>
  75.         <showName> <true /> </showName>
  76.         <highlight> <false /> </highlight>
  77.         <autoHighlight> <false /> </autoHighlight>
  78.         <sharedHighlight> <true /> </sharedHighlight>
  79.         <family>0</family>
  80.         <titleWidth>0</titleWidth>
  81.         <icon>0</icon>
  82.         <textAlign>center</textAlign>
  83.         <font>Chicago</font>
  84.         <textSize>12</textSize>
  85.         <textStyle>plain</textStyle>
  86.         <name>Put CopyStack In Memory</name>
  87.         <script>on mouseUp
  88. set the lockScreen to true
  89. choose button tool
  90. click at the loc of card button "CopyStack"
  91. doMenu "Copy Button"
  92. set the lockScreen to false
  93. put "CopyStack button now in memory"
  94. wait for 2 seconds
  95. hide message
  96. choose browse tool
  97. end mouseUp
  98. </script>
  99.     </part>
  100.     <part>
  101.         <id>9</id>
  102.         <type>field</type>
  103.         <visible> <true /> </visible>
  104.         <dontWrap> <false /> </dontWrap>
  105.         <dontSearch> <false /> </dontSearch>
  106.         <sharedText> <false /> </sharedText>
  107.         <fixedLineHeight> <true /> </fixedLineHeight>
  108.         <autoTab> <false /> </autoTab>
  109.         <lockText> <true /> </lockText>
  110.         <rect>
  111.             <left>2</left>
  112.             <top>47</top>
  113.             <right>510</right>
  114.             <bottom>339</bottom>
  115.         </rect>
  116.         <style>shadow</style>
  117.         <autoSelect> <false /> </autoSelect>
  118.         <showLines> <false /> </showLines>
  119.         <wideMargins> <false /> </wideMargins>
  120.         <multipleLines> <false /> </multipleLines>
  121.         <reservedFamily> 0 </reservedFamily>
  122.         <titleWidth>0</titleWidth>
  123.         <icon>0</icon>
  124.         <textAlign>left</textAlign>
  125.         <font>Geneva</font>
  126.         <textSize>9</textSize>
  127.         <textStyle>plain</textStyle>
  128.         <textHeight>12</textHeight>
  129.         <name>Instructions</name>
  130.         <script></script>
  131.     </part>
  132.     <part>
  133.         <id>17</id>
  134.         <type>button</type>
  135.         <visible> <true /> </visible>
  136.         <reserved5> 0 </reserved5>
  137.         <reserved4> 0 </reserved4>
  138.         <reserved3> 0 </reserved3>
  139.         <reserved2> 0 </reserved2>
  140.         <reserved1> 0 </reserved1>
  141.         <enabled> <true /> </enabled>
  142.         <rect>
  143.             <left>28</left>
  144.             <top>26</top>
  145.             <right>91</right>
  146.             <bottom>43</bottom>
  147.         </rect>
  148.         <style>shadow</style>
  149.         <showName> <true /> </showName>
  150.         <highlight> <false /> </highlight>
  151.         <autoHighlight> <false /> </autoHighlight>
  152.         <sharedHighlight> <true /> </sharedHighlight>
  153.         <family>0</family>
  154.         <titleWidth>0</titleWidth>
  155.         <icon>0</icon>
  156.         <textAlign>center</textAlign>
  157.         <font>New York</font>
  158.         <textSize>9</textSize>
  159.         <textStyle>italic</textStyle>
  160.         <name>CopyStack</name>
  161.         <script>on Search
  162. global Source,Destination
  163. set lockScreen to true
  164. doMenu "Open Stack..."
  165. get the name of this stack
  166. put it into Stak
  167. go to Source
  168. set lockScreen to false
  169. put word 2 of Stak into Destination
  170. end Search
  171.  
  172. on mouseUp
  173. global Source,Destination,StartCard,CopyCard,NumberOfCards,Selection
  174. put empty into Destination
  175. get the name of this stack
  176. put word 2 of it into Source
  177. get the id of this card
  178. put it into StartCard
  179. put "Will copy from stack" && Source && ", starting with" ¬¨
  180. && StartCard
  181. set lockScreen to true
  182. answer "What is the Destination stack?" ¬¨
  183. with "Name" or "Search" or "Cancel"
  184. if it = "Cancel" then hide message
  185. if it = "Cancel" then exit mouseUp
  186. if it = "Search" then put empty into it
  187. if it = "Name" then ask "What is the Source name?" with empty ¬¨
  188. else Search
  189. if it <> empty then put numToChar(34) & it & numToChar(34) into temp1
  190. if Destination = empty then put temp1 into Destination
  191. put "Will copy to stack" && Destination
  192. go to Source
  193. go to StartCard
  194. ask "Number of Cards (Including this Card)" with empty
  195. put it into NumberOfCards
  196. put empty into Selection
  197. repeat for NumberOfCards times
  198. put Selection & the id of this card & return into Selection
  199. put "Getting information from" && the id of this card
  200. go to next card
  201. end repeat
  202. put 0 into temp1
  203. repeat for NumberOfCards times
  204. add 1 to temp1
  205. put line temp1 of Selection into temp2
  206. go to temp2
  207. put "Copying" && temp2
  208. doMenu "Copy Card"
  209. go to last card of Destination
  210. put "Pasting" && temp2
  211. doMenu "Paste Card"
  212. if temp1 = 1 then get the id of this card
  213. put it into CopyCard
  214. go to Source
  215. end repeat
  216. set lockScreen to false
  217. put "Copying complete"
  218. wait for 2 seconds
  219. hide message
  220. answer "Remove CopyStack from this operation?" with "Yes" or "No"
  221. if it = "No" then go to StartCard
  222. if it = "No" then hide message
  223. if it = "No" then exit mouseUp
  224. set lockScreen to true
  225. choose button tool
  226. go to Destination
  227. go to CopyCard
  228. click at the loc of card button "CopyStack"
  229. doMenu "Cut Button"
  230. go to Source
  231. go to StartCard
  232. click at the loc of card button "CopyStack"
  233. doMenu "Cut Button"
  234. choose browse tool
  235. set lockScreen to false
  236. end mouseUp
  237.  
  238. </script>
  239.     </part>
  240.     <content>
  241.         <layer>card</layer>
  242.         <id>9</id>
  243.         <text>                                                         CopyStack  Version 1.00
  244.  
  245.   Have you ever wanted to add a card or series of cards from one stack to another?  This stack will copy a card or consecutive series of cards from a "Source" stack to a "Destination" stack, automatically.
  246.   Start by selecting Put CopyStack In Memory.  Use COPIES of the originals until you are familiar with the operation of this stack.  Then go to the card in the stack you wish to copy from.  Once there, select Edit/Paste Button or use Command-V.  Choose the browse tool on the Tools menu.  Now count the cards that you want to copy.  It is best to use Command-3 just in case the "Go Next" buttons do not select consecutive cards.  Return to the card that has CopyStack on it.  Click on CopyStack and answer the Destination question using the full name of the stack or having the Search function locate it.  The Search function is a little script used for locating stack names, feel free to implement it in your own stacks.  You will be prompted for the number of cards that are to be copied from the Source stack to the Destination stack.  A running commentary will appear in the message box.  Once completed, CopyStack will return and ask if you wish to remove the CopyStack button.  Use Install CopyStack On Home for installing CopyStack on your Home card for future use.
  247.  
  248. LIMITATIONS:  CopyStack was not designed to be all powerful!  It cannot anticipate the cards you want copied from one stack to another.  Be careful counting the cards that you want to copy and always include the card that has CopyStack on it.  CopyStack will always put the copied cards at the end of the Destination stack.  Also, if the author has been rude enough to put in a safeguard to stop you from looking at the cards scripts, try CopyStack only on a copy of the offending program.  If you have any ideas on how to improve this stack, let me know.  Please write to me at the following address.
  249.  
  250. Wallace Karraker, CIS 76354,3026, Dodge City, Kansas
  251. (p.s.  If a catastrophic system error does occur, I KNOOOW KNOTHINK)</text>
  252.     </content>
  253.     <name>CopyStack</name>
  254.     <script></script>
  255. </card>
  256.  
  257.  
  258.